home *** CD-ROM | disk | FTP | other *** search
/ Virtual Top Model / Virtual Top Model - Disc 1.iso / modulos / mod-1.dxr / 00005_boton panic.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  801 b   |  32 lines
  1. on mouseUp
  2.   global bVideoOn
  3.   if rollOver(13) then
  4.     set the member of sprite 13 to member "Fd_Bt_A/4" of castLib "elementos graficos"
  5.     puppetSprite(13, 0)
  6.     updateStage()
  7.     cursor(200)
  8.     set the soundLevel to 0
  9.     if bVideoOn then
  10.       set the movieRate of sprite 2 to 0
  11.       set the visible of sprite 2 to 0
  12.     end if
  13.     if the name of the member of sprite 2 = "strip" then
  14.       play frame "panic2"
  15.     else
  16.       play frame "panic1"
  17.     end if
  18.   end if
  19. end
  20.  
  21. on mouseDown
  22.   repeat while the stillDown
  23.     puppetSprite(13, 1)
  24.     if rollOver(13) then
  25.       set the member of sprite 13 to member "Fd_Bt_B/4" of castLib "elementos graficos"
  26.     else
  27.       set the member of sprite 13 to member "Fd_Bt_A/4" of castLib "elementos graficos"
  28.     end if
  29.     updateStage()
  30.   end repeat
  31. end
  32.